COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
COMMON TOOT,CLAR;
P18←C;
*

REVRB 0 0 1;				< One "note" only
 P2 12;					< should be at least 2-3" longer than
END;					<   total of all instruments

TOOT 0 5;
P2 RHY/4 ;			< quarter note, 2 eighths, half
P3 "P18";			< G4 = G above middle C
P4 1;					< maximum amplitude
P5 F1;					< amplitude function
P6 F6;					< waveform ("SYNTH") function
P7 .05;					< percentage (0 ↔ 1) of reverberation
P17 1;
P18 1 C4 C7;
P19 F4;
END;
 CLAR;
 DUPL 2;
 P3 LIT/"P3*1.5"/"P3*1.7"/"P3*1.9";
 END;
 CLAR 3 4;
 P3 "FS/2";END;
 TEMPO/4 40 120/2 120/4 120 40;